object Form1: TForm1
  Left = 386
  Top = 370
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Qu'#39'est-ce que c'#39'est? le code qu'#39'il a '#233'crit'
  ClientHeight = 256
  ClientWidth = 471
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'DejaVu Sans Mono'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 14
    Top = 21
    Width = 56
    Height = 15
    Caption = '00000000'
  end
  object Label2: TLabel
    Left = 75
    Top = 5
    Width = 60
    Height = 12
    Caption = #20154#21592#32534#30721#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 166
    Top = 5
    Width = 60
    Height = 12
    Caption = #26085#26399#26102#38388#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object edt1: TEdit
    Left = 74
    Top = 17
    Width = 73
    Height = 24
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'DejaVu Sans Mono'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
    MaxLength = 8
    ParentFont = False
    TabOrder = 0
    Text = '00000000'
    OnClick = edt1Click
  end
  object dtp1: TDateTimePicker
    Left = 163
    Top = 17
    Width = 89
    Height = 24
    Date = 40316.496427870370000000
    Format = 'yyyy-MM-dd'
    Time = 40316.496427870370000000
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'DejaVu Sans Mono'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
    ParentFont = False
    TabOrder = 1
  end
  object dtp2: TDateTimePicker
    Left = 251
    Top = 17
    Width = 58
    Height = 24
    Date = 40316.000000000000000000
    Format = 'HH:mm'
    Time = 40316.000000000000000000
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'DejaVu Sans Mono'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
    Kind = dtkTime
    ParentFont = False
    TabOrder = 2
  end
  object btn1: TButton
    Left = 123
    Top = 51
    Width = 81
    Height = 27
    Caption = 'QUY'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'DejaVu Sans Mono'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = btn1Click
  end
  object btn2: TButton
    Left = 269
    Top = 51
    Width = 80
    Height = 27
    Caption = 'SET'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'DejaVu Sans Mono'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = btn2Click
  end
  object dbgrd1: TDBGrid
    Left = 8
    Top = 86
    Width = 455
    Height = 164
    DataSource = ds1
    ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'DejaVu Sans Mono'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = -1
    Top = 96
    Width = 471
    Height = 146
    ParentBackground = False
    TabOrder = 6
    object lbl1: TLabel
      Left = 9
      Top = 103
      Width = 161
      Height = 19
      Caption = 'Qu'#39'est-ce que c'#39'est?'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'DejaVu Sans Mono'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Shape1: TShape
      Left = 177
      Top = 104
      Width = 16
      Height = 17
      Shape = stCircle
    end
    object edt3: TEdit
      Left = 8
      Top = 129
      Width = 456
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'DejaVu Sans Mono'
      Font.Style = [fsBold]
      ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
      ParentFont = False
      PasswordChar = '!'
      TabOrder = 0
      OnKeyPress = edt3KeyPress
    end
  end
  object con1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=cgzfsnn;Persist Security Info=True;' +
      'User ID=sa;Initial Catalog=ecardl;Data Source=NNDL360'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 72
  end
  object qry1: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 56
    Top = 96
  end
  object ds1: TDataSource
    DataSet = qry1
    OnDataChange = ds1DataChange
    Left = 96
    Top = 96
  end
  object Timer1: TTimer
    Interval = 5000
    OnTimer = Timer1Timer
    Left = 328
    Top = 8
  end
  object IBCQuery1: TIBCQuery
    Connection = IBCConnection1
    Transaction = IBCTransaction1
    Left = 376
    Top = 16
  end
  object IBCTransaction1: TIBCTransaction
    DefaultConnection = IBCConnection1
    Left = 424
    Top = 32
  end
  object IBCConnection1: TIBCConnection
    Database = 'd:\My_Documents\jqhz.fdb'
    ClientLibrary = 'gds32.dll'
    Username = 'sysdba'
    Password = 'masterkey'
    Server = '192.168.40.93'
    Left = 352
    Top = 64
  end
end
